From 73831978543068587eaf074f4378e163d266f878 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Fri, 23 Mar 2007 14:11:38 +0000 Subject: [PATCH] (m4-m4-buffer, m4-m4-region): Fix omission bug: Use m4-program-options to construct shell command. --- lisp/progmodes/m4-mode.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/m4-mode.el b/lisp/progmodes/m4-mode.el index 734a86b0b99..bd31f731693 100644 --- a/lisp/progmodes/m4-mode.el +++ b/lisp/progmodes/m4-mode.el @@ -118,14 +118,19 @@ (defun m4-m4-buffer () "Send contents of the current buffer to m4." (interactive) - (shell-command-on-region (point-min) (point-max) m4-program "*m4-output*" - nil) + (shell-command-on-region + (point-min) (point-max) + (mapconcat 'identity (cons m4-program m4-program-options) "\s") + "*m4-output*" nil) (switch-to-buffer-other-window "*m4-output*")) (defun m4-m4-region () "Send contents of the current region to m4." (interactive) - (shell-command-on-region (point) (mark) m4-program "*m4-output*" nil) + (shell-command-on-region + (point) (mark) + (mapconcat 'identity (cons m4-program m4-program-options) "\s") + "*m4-output*" nil) (switch-to-buffer-other-window "*m4-output*")) ;;;###autoload -- 2.30.2